variant does not contains a container.

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: variant does not contains a container.

Feedback Type: Problem

Product Area: Domino Designer on Eclipse (DDE)

Technical Area: Error Message

Platform: Windows

Release: 8.5.3

Reproducible: Always

What's wrong with it?
The error occurred the next code:
For e = 0 To 1
Print vreturn(e)
Next

The whole codes is as below,Pls advice.

Sub Initialize

On Error Goto errorhandle

Dim session As New NotesSession
Dim dbCurrent As NotesDatabase
Dim dbFlow As NotesDatabase
Dim note As NotesDocument
Dim vreturn As Variant
Dim strQueryString As String
Dim strRole As String
Dim strNodeNumber As String
Dim strUNID As String
Dim strApproveMode As String
Dim docMain As NotesDocument
Dim docFlow As NotesDocument
Dim strReturn As String

Set note = session.documentcontext
Set dbCurrent = session.currentdatabase
'get parameter from query string
Dim strGzr As String
'strQueryString = note.query_string_decoded(0)
strQueryString = "&"+Lcase(note.Request_Content(0))
strGzr = getRefValue( strQueryString ,"strgzr=")
MsgBox "strGzr="&strGzr
Dim retJe As Variant
retJe = Split(strGzr,"%25")
Dim aa As Variant
Dim i As Integer
Dim j As Integer
Dim d As Integer
Dim e As integer
Dim strjesm As String
i = 1
Forall sm In retJe
If i = 1 Then
strjesm = strjesm + sm
Else
strjesm = strjesm + "%" + sm
End If
i = i + 1
End Forall
strjesm = Ucase(strjesm)
msgbox "strjesm="&strjesm
aa = Evaluate(|@URLDecode ("Domino";"|+strjesm+|")|,note)
MsgBox "aa"
For d = 0 To 0
Print aa(d)
Next
MsgBox "aa1"

Set dbFlow=session.Getdatabase("",Replace(dbCurrent.Filepath,"htsp.nsf" ,"htflowdef.nsf"))
vreturn = getUsersFromJiaose(dbFlow,"abc")
'End If
MsgBox "ee"
For e = 0 To 1
Print vreturn(e)
Next

'note.fldtmpOptions = fnSelectUser_sameDep(vreturn,nmUser,strFilterLevel)
note.fldTemp= ToAbbreviateUserList(vreturn)

'MsgBox note.fldTemp
Msgbox "123"
Msgbox note.Getfirstitem("fldTemp").Text
i=Instr(note.Getfirstitem("fldTemp").Text,aa(0))
strReturn="0"

If i>0 Then
strReturn="1"
End If
Print "Content-type: text/xml;Charset=gb2312"
Print "<?xml version='1.0' encoding='gb2312'?>"

Print |<SELECTKIND>|+strReturn+|</SELECTKIND>|

Exit Sub
errorhandle:
showerror("Initialize")
End Sub

Feedback number WEBBAWA96A created by ~Chloe Rekrooni on 02/24/2018

Status: Open
Comments: